home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
1000 Apple LAN Literacy
/
1000 Apple LAN Literacy.iso
/
Apple LAN Literacy
/
Literacy Segments Part 1
/
Literacy Segments Part 1
/
background_37150.txt
< prev
next >
Wrap
Text File
|
1989-08-22
|
14KB
|
651 lines
-- background: 37150 from stack: in
-- bmap block id: 37611
-- flags: 4000
-- background id: 0
-- name: 1.1.2 Practice
-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=445 top=5 right=71 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Instant Reference
----- HyperTalk script -----
on mouseUp
instantReference "1.1.2"
end mouseUp
-- part 28 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=9 top=267 right=321 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Source
-- part 33 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=9 top=56 right=80 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 20
-- part name: Identifier
-- part 35 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=9 top=81 right=321 bottom=215
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Video Description
----- HyperTalk script -----
on mouseUp
set the scroll of fld "Video Description" to the scroll of fld "Audio Description"
pass mouseUp
end mouseUp
-- part 36 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=217 top=81 right=321 bottom=424
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Audio Description
----- HyperTalk script -----
on mouseUp
set the scroll of fld "Audio Description" to the scroll of fld "Video Description"
pass mouseUp
end mouseUp
-- part 44 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=18 top=1 right=38 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 24
-- style flags: 10240
-- line height: 32
-- part name: Title
-- part 45 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=42 top=144 right=253 bottom=282
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 16
-- style flags: 0
-- line height: 17
-- part name: Symptoms feedback
----- HyperTalk script -----
on mouseUp
hide me
end mouseUp
-- part 51 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=92 top=163 right=258 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 16
-- style flags: 0
-- line height: 17
-- part name: Problem Feedback
----- HyperTalk script -----
on mouseUp
global giveAnswerFlag
hide me
if giveAnswerFlag then showAnswer
end mouseUp
-- part 52 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=93 top=173 right=260 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 16
-- style flags: 0
-- line height: 17
-- part name: Software Feedback
----- HyperTalk script -----
on mouseUp
global giveAnswerFlag
hide me
if giveAnswerFlag then showAnswer
end mouseUp
-- part 53 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=82 top=173 right=265 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 16
-- style flags: 0
-- line height: 17
-- part name: Related? feedback
----- HyperTalk script -----
on mouseUp
global giveAnswerFlag
hide me
if giveAnswerFlag then showAnswer
end mouseUp
-- part 54 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=86 top=173 right=278 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 16
-- style flags: 0
-- line height: 17
-- part name: Device Feedback
----- HyperTalk script -----
on mouseUp
global giveAnswerFlag
hide me
if giveAnswerFlag then showAnswer
end mouseUp
-- part 55 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=62 top=171 right=259 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 16
-- style flags: 0
-- line height: 17
-- part name: Key
----- HyperTalk script -----
on mouseUp
hide me
end mouseUp
-- part 58 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=39 top=212 right=247 bottom=241
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: t feedback 1
-- part 63 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=41 top=62 right=251 bottom=446
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Additional back
-- part 64 (button)
-- low flags: 80
-- high flags: 4002
-- rect: left=44 top=65 right=248 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Additional black
----- HyperTalk script -----
on mouseUp
set hilite of me to true
end mouseUp
-- part 59 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=45 top=66 right=247 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Additional Information
-- part 60 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=66 top=123 right=216 bottom=423
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Additional Questions
----- HyperTalk script -----
on mouseUp
put ((the mouseV)-(top of the target)+(the scroll of me)-1) div (the textheight of the target)+1 into sLine
select line sLine of me
wait 20
put line sLine of fld "additional answers" into fld "master feedback"
show fld "master feedback"
end mouseUp
function getline
put ((the mouseV)-(top of the target)+(the scroll of me)-1) div (the textheight of the target)+1 into sLine
put line sLine of me into selected
put length(selected) into sLeng
if sLine≠1 then return (number of chars in line 1 to sLine-1 of me)+2
else return 1
end getline
-- part 61 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=193 top=220 right=242 bottom=293
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
on mouseUp
hideAdditional
end mouseUp
-- part 56 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=75 top=182 right=285 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 16
-- style flags: 0
-- line height: 17
-- part name: Master Feedback
-- part 62 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=78 top=100 right=201 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: additional answers
----- HyperTalk script -----
on mouseUp
hide me
end mouseUp
-- part 71 (button)
-- low flags: 80
-- high flags: A003
-- rect: left=206 top=257 right=279 bottom=306
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
global giveAnswerFlag,correctFlag
lock screen
clearHilites
hide me
hide fld "master feedback"
if giveAnswerFlag then
showAnswer
exit to HyperCard
end if
unlock screen -- with visual dissolve
get fld "master feedback"
if it = fld "key" or correctFlag
then put "Completed." into fld "indicator"
--if correctFlag and fld "additional questions" is not empty
--then showAdditional
end mouseUp
-- part 89 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=32 top=150 right=337 bottom=225
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 16
-- style flags: 0
-- line height: 17
-- part name: Practice Item 1
----- HyperTalk script -----
on mouseUp
wait 10
go cd "Scenario 1"
end mouseUp
-- part 90 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=254 top=150 right=337 bottom=455
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 16
-- style flags: 0
-- line height: 17
-- part name: Practice Item 2
----- HyperTalk script -----
on mouseUp
wait 10
go cd "Question 1"
end mouseUp
-- part 92 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=24 top=149 right=321 bottom=233
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: item1
----- HyperTalk script -----
on mouseUp
set the hilite of me to true
lock screen
go cd "Communicating Story P/2"
unlock screen
end mouseUp
-- part 93 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=246 top=149 right=322 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: item2
----- HyperTalk script -----
on mouseUp
set the hilite of me to true
lock screen
go cd "Communicating Story P/3"
unlock screen
end mouseUp
-- part 94 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=16 top=38 right=67 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 20
-- style flags: 0
-- line height: 26
-- part name: Subtitle
-- part 95 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=16 top=70 right=125 bottom=467
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 16
-- style flags: 0
-- line height: 17
-- part name: Text
-- part 96 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=480 top=143 right=172 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 1310 / 1310
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Student Services
----- HyperTalk script -----
on mousedown
SSpopUp
end mousedown
on mouseup
if the mouseloc is not within the rect of me then exit to hyperCard
doSS
end mouseup
-- part 97 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=482 top=176 right=205 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 162 / 162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
Help
end mouseUp
-- part 98 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=482 top=294 right=320 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 1236 / 1236
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Last Menu
-- part 99 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=478 top=319 right=341 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 1238 / 1238
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
lock screen
go prev
unlock screen with scroll right
end mouseUp
-- part 100 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=493 top=319 right=341 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 1237 / 1237
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
lock screen
go next
unlock screen with scroll left
end mouseUp
-- part 101 (field)
-- low flags: 81
-- high flags: 0001
-- rect: left=423 top=0 right=13 bottom=466
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: CardTitle
-- part 102 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=482 top=208 right=234 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 1234 / 1234
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lesson
----- HyperTalk script -----
on mouseUp
lesson "1.1.2"
end mouseUp
-- part 103 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=16 top=128 right=148 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 256
-- line height: 15
-- part name: Instruction